(deftemplate persoana
	(multislot nume)
	(slot ochi)
	(slot par)
	(slot nationalitate)
)

(defrule rule1
	(persoana (nume $? ?nume ?prenume)(ochi verzi)(par saten)(nationalitate franceza)
)
=>
(printout t "Regula 1 -> Nume: "?nume "Prenume: "?prenume crlf)
)

(defrule rule2
	(persoana (nume $? ?nume ?prenume)(ochi ?o & ~albastrii)(par ?par & ~negru))
    (not (persoana (nume $? ?nume1 & ~?nume ?prenume1 & ~?prenume)(ochi ?o)))
    (not (persoana (nume $? ?nume2 & ~?nume ?prenume2 & ~?prenume)(par ?par)))

=>
(printout t "Regula 2 -> Nume: "?nume "Prenume: "?prenume crlf)
)

(assert (persoana (nume Ionescu Ion)(ochi verzi)(par saten)(nationalitate franceza)))
(assert (persoana (nume Bogdan Popescu)(ochi caprui)(par blond)(nationalitate germana)))
(assert (persoana (nume Ionel Romanu)(ochi albastrii)(par castaniu)(nationalitate germana)))
(assert (persoana (nume Popescu Mihai)(ochi verzi)(par blond)(nationalitate romana)))
(assert (persoana (nume Vasilescu Ramona)(ochi rosii)(par violet)(nationalitate romana)))

(agenda)
(run)


	